home *** CD-ROM | disk | FTP | other *** search
/ Light & Shade: Niida Takashi / Light & Shade: Niida Takashi.iso / mac / WIN / AUTO2.Dxr / 00118_çƒêðÉrÉwÉCÉrÉA.ls < prev    next >
Encoding:
Text File  |  1998-09-06  |  5.9 KB  |  220 lines
  1. on mouseDown
  2.   global work, g, cont, playlist, k
  3.   repeat with g = 53 to 82
  4.     set work to the memberNum of sprite g
  5.     if cont = 1 then
  6.       case work of
  7.         "1":
  8.           put work into field "playList"
  9.         "2":
  10.           put work into field "playList"
  11.         "3":
  12.           put work into field "playList"
  13.         "4":
  14.           put work into field "playList"
  15.         "5":
  16.           put work into field "playList"
  17.         "6":
  18.           put work into field "playList"
  19.         "7":
  20.           put work into field "playList"
  21.         "8":
  22.           put work into field "playList"
  23.         "9":
  24.           put work into field "playList"
  25.         "10":
  26.           put work into field "playList"
  27.         "11":
  28.           put work into field "playList"
  29.         "12":
  30.           put work into field "playList"
  31.         "13":
  32.           put work into field "playList"
  33.         "14":
  34.           put work into field "playList"
  35.         "15":
  36.           put work into field "playList"
  37.         "16":
  38.           put work into field "playList"
  39.         "17":
  40.           put work into field "playList"
  41.         "18":
  42.           put work into field "playList"
  43.         "19":
  44.           put work into field "playList"
  45.         "20":
  46.           put work into field "playList"
  47.         "21":
  48.           put work into field "playList"
  49.         "22":
  50.           put work into field "playList"
  51.         "23":
  52.           put work into field "playList"
  53.         "24":
  54.           put work into field "playList"
  55.         "25":
  56.           put work into field "playList"
  57.         "26":
  58.           put work into field "playList"
  59.         "27":
  60.           put work into field "playList"
  61.         "28":
  62.           put work into field "playList"
  63.         "29":
  64.           put work into field "playList"
  65.         "30":
  66.           put work into field "playList"
  67.         "31":
  68.           put work into field "playList"
  69.         "32":
  70.           put work into field "playList"
  71.         "33":
  72.           put work into field "playList"
  73.         "34":
  74.           put work into field "playList"
  75.         "35":
  76.           put work into field "playList"
  77.         "36":
  78.           put work into field "playList"
  79.         "37":
  80.           put work into field "playList"
  81.         "38":
  82.           put work into field "playList"
  83.         "39":
  84.           put work into field "playList"
  85.         "40":
  86.           put work into field "playList"
  87.         "41":
  88.           put work into field "playList"
  89.         "42":
  90.           put work into field "playList"
  91.         "43":
  92.           put work into field "playList"
  93.         "44":
  94.           put work into field "playList"
  95.         "45":
  96.           put work into field "playList"
  97.         "46":
  98.           put work into field "playList"
  99.         "47":
  100.           put work into field "playList"
  101.         "48":
  102.           put work into field "playList"
  103.         "49":
  104.           put work into field "playList"
  105.         "50":
  106.           put work into field "playList"
  107.       end case
  108.       set cont to cont + 1
  109.       next repeat
  110.     end if
  111.     case work of
  112.       "1":
  113.         put "," & work after field "playList"
  114.       "2":
  115.         put "," & work after field "playList"
  116.       "3":
  117.         put "," & work after field "playList"
  118.       "4":
  119.         put "," & work after field "playList"
  120.       "5":
  121.         put "," & work after field "playList"
  122.       "6":
  123.         put "," & work after field "playList"
  124.       "7":
  125.         put "," & work after field "playList"
  126.       "8":
  127.         put "," & work after field "playList"
  128.       "9":
  129.         put "," & work after field "playList"
  130.       "10":
  131.         put "," & work after field "playList"
  132.       "11":
  133.         put "," & work after field "playList"
  134.       "12":
  135.         put "," & work after field "playList"
  136.       "13":
  137.         put "," & work after field "playList"
  138.       "14":
  139.         put "," & work after field "playList"
  140.       "15":
  141.         put "," & work after field "playList"
  142.       "16":
  143.         put "," & work after field "playList"
  144.       "17":
  145.         put "," & work after field "playList"
  146.       "18":
  147.         put "," & work after field "playList"
  148.       "19":
  149.         put "," & work after field "playList"
  150.       "20":
  151.         put "," & work after field "playList"
  152.       "21":
  153.         put "," & work after field "playList"
  154.       "22":
  155.         put "," & work after field "playList"
  156.       "23":
  157.         put "," & work after field "playList"
  158.       "24":
  159.         put "," & work after field "playList"
  160.       "25":
  161.         put "," & work after field "playList"
  162.       "26":
  163.         put "," & work after field "playList"
  164.       "27":
  165.         put "," & work after field "playList"
  166.       "28":
  167.         put "," & work after field "playList"
  168.       "29":
  169.         put "," & work after field "playList"
  170.       "30":
  171.         put "," & work after field "playList"
  172.       "31":
  173.         put "," & work after field "playList"
  174.       "32":
  175.         put "," & work after field "playList"
  176.       "33":
  177.         put "," & work after field "playList"
  178.       "34":
  179.         put "," & work after field "playList"
  180.       "35":
  181.         put "," & work after field "playList"
  182.       "36":
  183.         put "," & work after field "playList"
  184.       "37":
  185.         put "," & work after field "playList"
  186.       "38":
  187.         put "," & work after field "playList"
  188.       "39":
  189.         put "," & work after field "playList"
  190.       "40":
  191.         put "," & work after field "playList"
  192.       "41":
  193.         put "," & work after field "playList"
  194.       "42":
  195.         put "," & work after field "playList"
  196.       "43":
  197.         put "," & work after field "playList"
  198.       "44":
  199.         put "," & work after field "playList"
  200.       "45":
  201.         put "," & work after field "playList"
  202.       "46":
  203.         put "," & work after field "playList"
  204.       "47":
  205.         put "," & work after field "playList"
  206.       "48":
  207.         put "," & work after field "playList"
  208.       "49":
  209.         put "," & work after field "playList"
  210.       "50":
  211.         put "," & work after field "playList"
  212.     end case
  213.     set cont to cont + 1
  214.   end repeat
  215.   sound stop 1
  216.   cursor(4)
  217.   set k to the number of items in field "playList"
  218.   go(#next)
  219. end
  220.